1 DIMA%(2),B%(2),C%(3),R%(3),P%(5),N%(12,3,3):T%=40:V=54296:S1=54272:I=RND(-TI)
5 CS=55296:S%=1024
7 FORL=S1TOS1+24:POKES1,0:NEXTL:POKEV,15:POKES1+5,17:POKES1+6,241
10 PRINT"[147]"TAB(56)"FASTADD":PRINTTAB(91)"1, 2, OR 3 DIGITS?":GOSUB400
15 GETA$:IFA$=""ORA$<"1"ORA$>"3"THEN15
20 L%=VAL(A$):Q%=9+L%*2
25 PB%=0:PR%=0:PA%=0
30 GOSUB100:W%=0:FORI=0TOG%:W%=W%+C%(I)*10^I:NEXT:GOSUB200:GOSUB300:FORI=1TO1000:NEXT
35 IFU%=W%THENPR%=PR%+1:GOTO55
40 POKE53281,0:PRINT"[147]"TAB(136);"W R O N G":PRINTTAB(55)"THE CORRECT"
45 PRINTTAB(56)"ANSWER IS":FORI=1TO2000:NEXT:GOSUB200
50 Y%=14:FORM=0TOG%:X%=Q%-M*4+8:Z%=C%(M):GOSUB500:NEXT:FORI=1TO1000
53 NEXT:XT%=30:GOTO65
55 FORI=1TO6:POKES1+4,33:POKES1+1,PI(I):FORA=1TODU(I):NEXT:POKES1+4,32
60 FORJ=1TO50:NEXT:NEXT
65 PB%=PB%+30-XT%:PA%=PA%+1:IFPA%<10THEN30
70 PR%=PR%*10:S$=STR$(PR%):X1%=3-LEN(S$)*2:PRINT"[147][144]":Y%=3:H%=0
75 FORM=2TOLEN(S$):X%=X1%+M*4+8:Z%=VAL(MID$(S$,M,1)):GOSUB500:NEXT:PB%=PB%*L%
80 X%=X%+4:Z%=12:GOSUB500
85 PRINTTAB(13)" TIMED SCORE":S$=STR$(PB%):X1%=5-LEN(S$)*2:Y%=12:H%=2
90 FORM=2TOLEN(S$):X%=X1%+M*4+8:Z%=VAL(MID$(S$,M,1)):GOSUB500:NEXT
92 PRINTTAB(13)" HIT ANY KEY"
94 GETA$:IFA$=""THEN94
96 GOTO25
100 FORI=0TO2:A%(I)=0:B%(I)=0:C%(I)=0:R%(I)=0:NEXT:R%(3)=0:C%(3)=0
110 FORI=0TOL%-1:A%(I)=INT(10*RND(1)):IFA%(I)<>0THENE%=I
120 B%(I)=INT(10*RND(1)):IFB%(I)<>0THENF%=I
130 W%=A%(I)+B%(I)+R%(I):IFW%<10THENC%(I)=W%:G%=I:NEXT:RETURN
140 C%(I)=W%-10:R%(I+1)=1:NEXT:C%(I)=1:G%=I:RETURN
200 POKE53281,1:POKE53280,0:PRINT"[147]":H%=0:Y%=2:FORM=0TOE%:X%=Q%-M*4+8:Z%=A%(M)
205 GOSUB 500:NEXT
210 POKE198,0:Y%=7:FORM=0TOF%:X%=Q%-M*4+8:Z%=B%(M):GOSUB500:NEXT
220 X%=Q%-(F%+1)*4+8:Z%=10:GOSUB500:FORM=466-Q%TO453+Q%-1
230 POKES%+M,160:POKECS+M,H%:FORA=1TO5:POKES1+4,33:POKES1+1,M-430
235 NEXT:NEXT:POKES1+4,32
240 H%=6:Y%=14:Z%=11:FORM=0TOG%:X%=Q%-M*4+8:GOSUB500:NEXT:RETURN
300 U%=0:H%=2:Y%=14:TI$="000000"
310 PRINT" PROBLEM";TAB(18)"TIME";TAB(30)"RIGHT"
315 PRINTTAB(3);PA%+1;TAB(31)PR%
320 FORM=0TOG%
330 XT%=TI/60:IFXT%>30THEN RETURN
340 POKES%+819,ASC(MID$(TI$,5,1))+128:POKECS+819,0
350 POKES%+820,ASC(MID$(TI$,6,1))+128:POKECS+820,0
360 GETA$:IFA$=""ORA$<"0"ORA$>"9"THEN330
370 X%=Q%-M*4+8:Z%=VAL(A$):GOSUB500:U%=U%+Z%*10^M:NEXT:RETURN
400 FORI=0TO12:FORJ=0TO3:FORK=0TO3:READN%(I,J,K):NEXTK,J,I
410 FORI=0TO5:READP%(I):NEXTI:FORQ=1TO6:READPI(Q),DU(Q):NEXTQ:RETURN
500 POKES1+4,33:FORI=0TO3:FORJ=0TO3:K=T%*Y%+X%+T%*J+I
505 POKES%+K,N%(Z%,J,I):POKECS+K,H%:POKES1+1,125-X%*J-Y%*I:POKES1,30
510 NEXTJ,I:POKES1+4,32:RETURN
1100 DATA108,226,226,123,225,32,32,97,225,32,32,97,32,226,226,32
1101 DATA32,108,97,32,32,126,97,32,32,32,97,32,32,226,226,126
1102 DATA108,226,226,123,32,32,98,126,108,226,32,32,124,226,226,126
1103 DATA108,226,226,123,32,108,98,126,108,32,32,97,32,226,226,32
1104 DATA32,32,254,32,32,255,225,32,124,226,251,126,32,32,124,32
1105 DATA225,226,226,126,124,226,127,32,108,32,108,126,32,226,126,32
1106 DATA32,255,226,32,225,98,98,32,225,32,32,97,32,226,226,32
1107 DATA225,226,226,97,32,32,255,32,32,255,32,32,32,126,32,32
1108 DATA108,226,226,123,124,98,98,126,225,32,32,97,32,226,226,32
1109 DATA108,226,226,123,124,98,98,97,32,32,108,126,32,226,126,32
1110 DATA32,32,123,32,32,98,252,123,32,32,97,32,32,32,32,32
1111 DATA160,160,160,97,160,160,160,97,160,160,160,97,160,160,160,97
1112 DATA108,123,32,123,124,126,255,32,32,255,108,123,124,32,124,126
1113 DATA215,225,231,235,231,235
1114 DATA 25,50,33,50,42,50,50,250,42,50,50,300
19999 S1=54272
20000 V=S1+24:FORL=S1TOS1+24:POKES1,0:NEXTL:POKEV,15:POKES1+5,17:POKES1+6,241
20010 POKES1+4,33:POKES1+1,25:FORI=1TO50:NEXTI:POKES1+4,32:FORI=1TO50:NEXT
20020 POKES1+1,33:POKES1+4,33:FORA=1TO50:NEXT:POKES1+4,32:FORI=1TO50 :NEXT
20025 POKES1+4,33:POKES1+1,42:FORI=1TO50:NEXT:POKES1+4,32:FORI=1TO50:NEXT
20028 POKES1+4,33:POKES1+1,50:FORI=1TO250:NEXT:POKES1+4,32:FORI=1TO50:NEXT
20030 POKES1+4,33:POKES1+1,42:FORI=1TO50:NEXTI:POKES1+4,32:FORI=1TO50:NEXTI
20040 POKES1+4,33:POKES1+1,50:FORI=1TO300:NEXT:POKES1+4,32
20050 POKES1+4,33:POKES1+1,66:FORI=1TO300:NEXT:POKES1+4,32